home *** CD-ROM | disk | FTP | other *** search
/ Champak 48 / cdrom_image.iso / Games / rollerrush / game.dcr / Internal_125_buy upgrade.ls < prev    next >
Encoding:
Text File  |  2007-10-01  |  652 b   |  33 lines
  1. property sd, spriteNum
  2. global gSelectedUpgrade, gUpgradeSet, gCurrProfile, gUpgradeList, gProfileCurrStars
  3.  
  4. on beginSprite me
  5.   sd = sprite(spriteNum)
  6.   sd.blend = 0
  7. end
  8.  
  9. on mouseEnter me
  10.   sd.blend = 100
  11. end
  12.  
  13. on mouseLeave me
  14.   sd.blend = 0
  15. end
  16.  
  17. on mouseUp me
  18.   playSound(9, "mousedown1")
  19.   upgr = gSelectedUpgrade + ((gUpgradeSet - 1) * 10)
  20.   put "upgr", upgr, gSelectedUpgrade, gUpgradeSet
  21.   if gCurrProfile.UpGradesHave[upgr] = 1 then
  22.     sendSprite(105, #show)
  23.     return 
  24.   end if
  25.   if gUpgradeList[upgr].cost > gProfileCurrStars then
  26.     sendSprite(99, #show)
  27.     return 
  28.   else
  29.     sendSprite(90, #OpenUp, upgr)
  30.     go("upgrades")
  31.   end if
  32. end
  33.